home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cug191 / delay.ase < prev    next >
Text File  |  1986-05-25  |  2KB  |  69 lines
  1. ;
  2. ;    DELAY.ASM               (Eco-C88 version)              25 Feb 86
  3. ;
  4. ;   /* ------------------------------------------------------------ */
  5. ;   /*      This is a portion of the SOUND EFFECTS LIBRARY.         */
  6. ;   /*                                                              */
  7. ;   /*      Copyright (C) 1986 by Paul Canniff.                     */
  8. ;   /*      All rights reserved.                                    */
  9. ;   /*                                                              */
  10. ;   /*      This library has been placed into the public domain     */
  11. ;   /*      by the author.  Use is granted for non-commercial       */
  12. ;   /*      pusposes, or as an IMBEDDED PORTION of a commercial     */
  13. ;   /*      product.                                                */
  14. ;   /*                                                              */
  15. ;   /*      Paul Canniff                                            */
  16. ;   /*      PO Box 1056                                             */
  17. ;   /*      Marlton, NJ 08053                                       */
  18. ;   /*                                                              */
  19. ;   /*      CompuServe ID: 73047,3715                               */
  20. ;   /*                                                              */
  21. ;   /* ------------------------------------------------------------ */
  22. ;
  23. ; -------------------------------------------------------------------------
  24. ;    Set up macros for segment values, etc.
  25. ;
  26.     INCLUDE PRO.H            ;Eco-C88 header file
  27. ;
  28. LPROG   EQU     0                       ;No Long code in Ecosoft C88
  29. ;
  30.     IF    LPROG
  31. ARGS    EQU    6                       ;Bytes on stack before args 
  32.     ELSE
  33. ARGS    EQU    4                       ;Bytes on stack before args
  34.     ENDIF
  35. ;
  36. ; -------------------------------------------------------------------------
  37. ;
  38. $b$prog    segment    word public 'code'
  39. ;
  40.     PUBLIC    _delay
  41. ;
  42.         IF      LPROG
  43. _delay    PROC    FAR
  44.         ELSE
  45. _delay  PROC    NEAR
  46.         ENDIF
  47.         PUSH    BP
  48.         MOV     BP,SP
  49.         MOV     CX,[BP+ARGS]
  50. OUTLP:  PUSH    CX
  51.         MOV     CX,279
  52. INLP:   LOOP    INLP
  53.         POP     CX
  54.         LOOP    OUTLP
  55.         POP     BP
  56.     RET                       
  57. _delay  ENDP
  58. ;
  59. ;
  60. $b$prog    ends
  61.     END
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.